home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat06 / sad / reseau.bas < prev    next >
Encoding:
BASIC Source File  |  1989-08-23  |  9.7 KB  |  124 lines
  1. OUI=1 : NON=0                                                                   
  2. GOSUB MAIN                                                                      
  3. END                                                                             
  4. '--------------------------------------------------Niveau  9                    
  5.                                                                                 
  6. CALCULCHOIX:                                                                    
  7. return                                                                          
  8.                                                                                 
  9.                                                                                 
  10. CHOIXOUI:                                                                       
  11. return                                                                          
  12. '--------------------------------------------------Niveau  8                    
  13.                                                                                 
  14. AFFICHAGE:                                                                      
  15. PRINT "ESSAI CODE"                                                              
  16. return                                                                          
  17.                                                                                 
  18. CHOIXDUJOUEUR:                                                                  
  19. return                                                                          
  20.                                                                                 
  21. TESTCHOIX:                                                                      
  22.    gosub CALCULCHOIX                                                            
  23.    if CHOIX=OUI then gosub CHOIXOUI                                             
  24. return                                                                          
  25.                                                                                 
  26.                                                                                 
  27. CHOIXDUSENS:                                                                    
  28. return                                                                          
  29. '--------------------------------------------------Niveau  7                    
  30.                                                                                 
  31. CALCULPOSSIBILITE:                                                              
  32. return                                                                          
  33.                                                                                 
  34.                                                                                 
  35. POSSIBILITEOUI:                                                                 
  36.    gosub AFFICHAGE                                                              
  37.    gosub CHOIXDUJOUEUR                                                          
  38.    gosub TESTCHOIX                                                              
  39. return                                                                          
  40.                                                                                 
  41. POSSIBILITENON:                                                                 
  42.    gosub CHOIXDUSENS                                                            
  43. return                                                                          
  44. '--------------------------------------------------Niveau  6                    
  45.                                                                                 
  46. TESTPOSSIBILITE:                                                                
  47.    gosub CALCULPOSSIBILITE                                                      
  48.    if POSSIBILITE=OUI then gosub POSSIBILITEOUI else gosub POSSIBILITENON       
  49. return                                                                          
  50.                                                                                 
  51. '--------------------------------------------------Niveau  5                    
  52.                                                                                 
  53. MVTCHASSEURS:                                                                   
  54. return                                                                          
  55.                                                                                 
  56. MVTJOUEUR:                                                                      
  57.    gosub TESTPOSSIBILITE                                                        
  58. return                                                                          
  59.                                                                                 
  60. MAJCOORDONNEESJOUEUR:                                                           
  61. return                                                                          
  62.                                                                                 
  63. CALCULFINPRINCIPALEPHASE:                                                       
  64. return                                                                          
  65. '--------------------------------------------------Niveau  4                    
  66.                                                                                 
  67. PRINCIPALEPHASE:                                                                
  68.    gosub MVTCHASSEURS                                                           
  69.    gosub MVTJOUEUR                                                              
  70.    gosub MAJCOORDONNEESJOUEUR                                                   
  71.    gosub CALCULFINPRINCIPALEPHASE                                               
  72. return                                                                          
  73. '--------------------------------------------------Niveau  3                    
  74.                                                                                 
  75. TANTQUEPRINCIPALEPHASE:                                                         
  76. PRINCIPALEPHASE=NON                                                             
  77. while PRINCIPALEPHASE=NON                                                       
  78.    gosub PRINCIPALEPHASE                                                        
  79. wend                                                                            
  80. return                                                                          
  81.                                                                                 
  82. '--------------------------------------------------Niveau  2                    
  83.                                                                                 
  84. LECTUREFICHIERRESEAU:                                                           
  85. return                                                                          
  86.                                                                                 
  87. NBRENNEMIS:                                                                     
  88. return                                                                          
  89.                                                                                 
  90. POSITIONENNEMIS:                                                                
  91. return                                                                          
  92.                                                                                 
  93. POSITIONJOUEUR:                                                                 
  94. return                                                                          
  95.                                                                                 
  96. PARTIE:                                                                         
  97.    gosub TANTQUEPRINCIPALEPHASE                                                 
  98. return                                                                          
  99. '--------------------------------------------------Niveau  1                    
  100.                                                                                 
  101. INITIALISATION:                                                                 
  102.    gosub LECTUREFICHIERRESEAU                                                   
  103.    gosub NBRENNEMIS                                                             
  104.    gosub POSITIONENNEMIS                                                        
  105.    gosub POSITIONJOUEUR                                                         
  106. return                                                                          
  107.                                                                                 
  108. TANTQUEPARTIE:                                                                  
  109. PARTIE=NON                                                                      
  110. while PARTIE=NON                                                                
  111.    gosub PARTIE                                                                 
  112. wend                                                                            
  113. return                                                                          
  114.                                                                                 
  115. '--------------------------------------------------Niveau  0                    
  116.                                                                                 
  117. MAIN:                                                                           
  118.    gosub INITIALISATION                                                         
  119.    gosub TANTQUEPARTIE                                                          
  120. return                                                                          
  121.    gosub INITIALISATION                                                         
  122.    gosub TANTQUEPARTIE                                                          
  123. return                                                                          
  124.